Private Sub txtֹε_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim ֹιȣ As String
    Dim  As String
    
    ֹιȣ = txtֹε.Value
    
    If Len(ֹιȣ) = 14 And Mid(ֹιȣ, 7, 1) = "-" Then
            
        Select Case Mid(ֹιȣ, 8, 1)
            Case 1, 2:  = "19"
            Case 3, 4:  = "20"
        End Select
        
        txt.Value =  & Format(Left(ֹιȣ, 6), "00-00-00")
        
        txt.Value = Year(Date) - Year(DateValue(txt.Value)) + 1

        If Mid(ֹιȣ, 8, 1) Mod 2 Then
            opt.Value = True
        Else
            opt.Value = True
        End If
        
    Else
        
        If Len(ֹιȣ) > 0 Then
        
            txtֹε.Value = vbNullString
            Cancel = True
            
        End If
        
    End If

End Sub
